Upimages_flash.asp 云枫工作室企业网站源码 1 - ASP源码程序

www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Upimages_flash.asp

    <%
Server.ScriptTimeout=99999
%>
<!--#include file="upload_5xsoft.inc" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<style>
body { font-size:9pt  }
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
set upload=new upload_5xsoft
set file=upload.file("sf_upfile")
if file.fileSize<1 then
   response.write"<script language=javascript>alert('[ 上传系统提示 ]\n\n请选择文件！');history.back()</script>"
   response.end 
end if
if file.fileSize<10 or file.fileSize>1000*2048 then
	response.write "错误:上传的图片大小超过了限制! <a href='javascript:history.go(-1)'>退回上一步</a>"
	response.end
end if
upfilename = split(file.FileName,".")
upfileext = upfilename(ubound(upfilename))
if upfileext<>"jpg" and upfileext<>"jpeg" and upfileext<>"gif" and upfileext<>"JPG" and upfileext<>"JPEG" and upfileext<>"GIF" and upfileext<>"bmp"and upfileext<>"BMP"and upfileext<>"rar"and upfileext<>"RAR"and upfileext<>"ZIP" and upfileext<>"zip" and upfileext<>"avi" and upfileext<>"swf" and upfileext<>"mpg" and upfileext<>"mp3" and upfileext<>"mid" and upfileext<>"wma" and upfileext<>"rm" and upfileext<>"ra" then
	response.write "错误:上传的文件格式不对! <a href='javascript:history.go(-1)'>退回上一步</a>"
	response.end
end if
ufp=""&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&upfilename(ubound(upfilename))
file.saveas Server.mappath("../flash/"&ufp)
%>
<script >
parent.myform.flash.value='flash/<%=ufp%>'
location.replace('Upimage_flash.asp')
</script>
<%
set file=nothing
set upload=nothing
'set my_conn = nothing
'set rs = nothing
%>
</body></html>